module Test where

import Debug.Trace
import Data.Argonaut
import qualified Data.Argonaut.Encode as E
import qualified Data.Argonaut.Decode as D
import Data.Identity
import Data.Either
import Data.Maybe
import qualified Data.StrMap as M
import Data.Tuple

data Foo = Foo
    { foo :: String
    , bar :: Number
    }

instance showFoo :: Show Foo where
  show (Foo f) = "Foo(" ++ show f.foo ++ ", " ++ show f.bar ++ ")"

instance decodeFoo :: D.DecodeJson Foo where
  decodeJson json = maybe (Left "not json for foo") Right $ do
    obj <- toObject json
    foo <- (M.lookup "foo" obj >>= toString)
    bar <- (M.lookup "bar" obj >>= toNumber)
    pure (Foo {foo: foo, bar: bar})

instance encodeFoo :: E.EncodeJson Foo where
  encodeJson (Foo {foo = f, bar = b}) =
    fromObject $   M.fromList [Tuple "foo" $ fromString f,  
                  Tuple "bar" $ fromNumber b] 

main = do 
  let mahfoo = Foo { foo: "meh", bar: 23 } 
  trace $ "show mahfoo: " ++ show mahfoo 
  trace $ "encode mahfoo: " ++ show (encodeJson mahfoo)